(Fassoc_string): Allow symbols as keys.

diff --git a/src/minibuf.c b/src/minibuf.c
index 19835f1d213ab03f415f7f8e67e264e323827e75..cc6859bfb1bd21fdca04b34d1e0c1455205db195 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -2089,7 +2089,9 @@ string rather than a cons cell whose car is a string.  */)
       register Lisp_Object elt, tem, thiscar;
       elt = Fcar (tail);
       thiscar = CONSP (elt) ? XCAR (elt) : elt;
-      if (!STRINGP (thiscar))
+      if (SYMBOLP (thiscar))
+       thiscar = Fsymbol_name (thiscar);
+      else if (!STRINGP (thiscar))
        continue;
       tem = Fcompare_strings (thiscar, make_number (0), Qnil,
                              key, make_number (0), Qnil,